/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / ielm.elc.z / ielm.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 65 72 69 6b 40 6e 61 |piled by| erik@na|
|00000020| 67 67 75 6d 2e 6e 6f 20 | 6f 6e 20 53 75 6e 20 4a |ggum.no |on Sun J|
|00000030| 61 6e 20 31 34 20 30 35 | 3a 35 36 3a 35 36 20 31 |an 14 05|:56:56 1|
|00000040| 39 39 36 0a 3b 3b 3b 20 | 66 72 6f 6d 20 66 69 6c |996.;;; |from fil|
|00000050| 65 20 2f 67 64 2f 67 6e | 75 2f 65 6d 61 63 73 2f |e /gd/gn|u/emacs/|
|00000060| 31 39 2e 30 2f 6c 69 73 | 70 2f 69 65 6c 6d 2e 65 |19.0/lis|p/ielm.e|
|00000070| 6c 0a 3b 3b 3b 20 65 6d | 61 63 73 20 76 65 72 73 |l.;;; em|acs vers|
|00000080| 69 6f 6e 20 31 39 2e 33 | 30 2e 37 30 2e 36 2e 0a |ion 19.3|0.70.6..|
|00000090| 3b 3b 3b 20 62 79 74 65 | 63 6f 6d 70 20 76 65 72 |;;; byte|comp ver|
|000000a0| 73 69 6f 6e 20 46 53 46 | 20 32 2e 31 30 0a 3b 3b |sion FSF| 2.10.;;|
|000000b0| 3b 20 6f 70 74 69 6d 69 | 7a 61 74 69 6f 6e 20 69 |; optimi|zation i|
|000000c0| 73 20 6f 6e 2e 0a 3b 3b | 3b 20 74 68 69 73 20 66 |s on..;;|; this f|
|000000d0| 69 6c 65 20 75 73 65 73 | 20 6f 70 63 6f 64 65 73 |ile uses| opcodes|
|000000e0| 20 77 68 69 63 68 20 64 | 6f 20 6e 6f 74 20 65 78 | which d|o not ex|
|000000f0| 69 73 74 20 69 6e 20 45 | 6d 61 63 73 20 31 38 2e |ist in E|macs 18.|
|00000100| 0a 0a 28 69 66 20 28 61 | 6e 64 20 28 62 6f 75 6e |..(if (a|nd (boun|
|00000110| 64 70 20 27 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |dp 'emac|s-versio|
|00000120| 6e 29 0a 09 20 28 6f 72 | 20 28 61 6e 64 20 28 62 |n).. (or| (and (b|
|00000130| 6f 75 6e 64 70 20 27 65 | 70 6f 63 68 3a 3a 76 65 |oundp 'e|poch::ve|
|00000140| 72 73 69 6f 6e 29 20 65 | 70 6f 63 68 3a 3a 76 65 |rsion) e|poch::ve|
|00000150| 72 73 69 6f 6e 29 0a 09 | 20 20 20 20 20 28 73 74 |rsion)..|     (st|
|00000160| 72 69 6e 67 2d 6c 65 73 | 73 70 20 65 6d 61 63 73 |ring-les|sp emacs|
|00000170| 2d 76 65 72 73 69 6f 6e | 20 22 31 39 2e 32 39 22 |-version| "19.29"|
|00000180| 29 29 29 0a 20 20 20 20 | 28 65 72 72 6f 72 20 22 |))).    |(error "|
|00000190| 60 69 65 6c 6d 2e 65 6c | 27 20 77 61 73 20 63 6f |`ielm.el|' was co|
|000001a0| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|000001b0| 20 31 39 2e 32 39 20 6f | 72 20 6c 61 74 65 72 22 | 19.29 o|r later"|
|000001c0| 29 29 0a 0a 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |))...(by|te-code |
|000001d0| 22 c0 c1 21 88 c0 c2 21 | 87 22 20 5b 72 65 71 75 |"..!...!|." [requ|
|000001e0| 69 72 65 20 63 6f 6d 69 | 6e 74 20 70 70 5d 20 32 |ire comi|nt pp] 2|
|000001f0| 29 0a 23 40 33 39 20 2a | 49 66 20 6e 6f 6e 2d 6e |).#@39 *|If non-n|
|00000200| 69 6c 2c 20 49 45 4c 4d | 20 77 69 6c 6c 20 62 65 |il, IELM| will be|
|00000210| 65 70 20 6f 6e 20 65 72 | 72 6f 72 2e 1f 0a 28 64 |ep on er|ror...(d|
|00000220| 65 66 76 61 72 20 69 65 | 6c 6d 2d 6e 6f 69 73 79 |efvar ie|lm-noisy|
|00000230| 20 74 20 28 23 24 20 2e | 20 2d 35 30 33 29 29 0a | t (#$ .| -503)).|
|00000240| 23 40 32 32 20 50 72 6f | 6d 70 74 20 75 73 65 64 |#@22 Pro|mpt used|
|00000250| 20 69 6e 20 49 45 4c 4d | 2e 1f 0a 28 64 65 66 76 | in IELM|...(defv|
|00000260| 61 72 20 69 65 6c 6d 2d | 70 72 6f 6d 70 74 20 22 |ar ielm-|prompt "|
|00000270| 45 4c 49 53 50 3e 20 22 | 20 28 23 24 20 2e 20 35 |ELISP> "| (#$ . 5|
|00000280| 38 31 29 29 0a 23 40 32 | 33 32 20 2a 43 6f 6e 74 |81)).#@2|32 *Cont|
|00000290| 72 6f 6c 73 20 77 68 65 | 74 68 65 72 20 5c 3c 69 |rols whe|ther \<i|
|000002a0| 65 6c 6d 2d 6d 61 70 3e | 5c 5b 69 65 6c 6d 2d 72 |elm-map>|\[ielm-r|
|000002b0| 65 74 75 72 6e 5d 20 68 | 61 73 20 69 6e 74 65 6c |eturn] h|as intel|
|000002c0| 6c 69 67 65 6e 74 20 62 | 65 68 61 76 69 6f 75 72 |ligent b|ehaviour|
|000002d0| 20 69 6e 20 49 45 4c 4d | 2e 0a 49 66 20 6e 6f 6e | in IELM|..If non|
|000002e0| 2d 6e 69 6c 2c 20 5c 5b | 69 65 6c 6d 2d 72 65 74 |-nil, \[|ielm-ret|
|000002f0| 75 72 6e 5d 20 65 76 61 | 6c 75 61 74 65 73 20 69 |urn] eva|luates i|
|00000300| 6e 70 75 74 20 66 6f 72 | 20 63 6f 6d 70 6c 65 74 |nput for| complet|
|00000310| 65 20 73 65 78 70 73 2c | 20 6f 72 20 69 6e 73 65 |e sexps,| or inse|
|00000320| 72 74 73 20 61 20 6e 65 | 77 6c 69 6e 65 0a 61 6e |rts a ne|wline.an|
|00000330| 64 20 69 6e 64 65 6e 74 | 73 20 66 6f 72 20 69 6e |d indent|s for in|
|00000340| 63 6f 6d 70 6c 65 74 65 | 20 73 65 78 70 73 2e 20 |complete| sexps. |
|00000350| 20 49 66 20 6e 69 6c 2c | 20 61 6c 77 61 79 73 20 | If nil,| always |
|00000360| 69 6e 73 65 72 74 73 20 | 6e 65 77 6c 69 6e 65 73 |inserts |newlines|
|00000370| 2e 1f 0a 28 64 65 66 76 | 61 72 20 69 65 6c 6d 2d |...(defv|ar ielm-|
|00000380| 64 79 6e 61 6d 69 63 2d | 72 65 74 75 72 6e 20 74 |dynamic-|return t|
|00000390| 20 28 23 24 20 2e 20 2d | 36 35 31 29 29 0a 23 40 | (#$ . -|651)).#@|
|000003a0| 33 32 31 20 2a 46 6f 72 | 63 65 20 6d 75 6c 74 69 |321 *For|ce multi|
|000003b0| 6c 69 6e 65 20 69 6e 70 | 75 74 73 20 74 6f 20 73 |line inp|uts to s|
|000003c0| 74 61 72 74 20 66 72 6f | 6d 20 63 6f 6c 75 6d 6e |tart fro|m column|
|000003d0| 20 7a 65 72 6f 3f 0a 49 | 66 20 6e 6f 6e 2d 6e 69 | zero?.I|f non-ni|
|000003e0| 6c 2c 20 61 66 74 65 72 | 20 65 6e 74 65 72 69 6e |l, after| enterin|
|000003f0| 67 20 74 68 65 20 66 69 | 72 73 74 20 6c 69 6e 65 |g the fi|rst line|
|00000400| 20 6f 66 20 61 6e 20 69 | 6e 63 6f 6d 70 6c 65 74 | of an i|ncomplet|
|00000410| 65 20 73 65 78 70 2c 20 | 61 20 6e 65 77 6c 69 6e |e sexp, |a newlin|
|00000420| 65 0a 77 69 6c 6c 20 62 | 65 20 69 6e 73 65 72 74 |e.will b|e insert|
|00000430| 65 64 20 61 66 74 65 72 | 20 74 68 65 20 70 72 6f |ed after| the pro|
|00000440| 6d 70 74 2c 20 6d 6f 76 | 69 6e 67 20 74 68 65 20 |mpt, mov|ing the |
|00000450| 69 6e 70 75 74 20 74 6f | 20 74 68 65 20 6e 65 78 |input to| the nex|
|00000460| 74 20 6c 69 6e 65 2e 0a | 54 68 69 73 20 67 69 76 |t line..|This giv|
|00000470| 65 73 20 6d 6f 72 65 20 | 66 72 61 6d 65 20 77 69 |es more |frame wi|
|00000480| 64 74 68 20 66 6f 72 20 | 6c 61 72 67 65 20 69 6e |dth for |large in|
|00000490| 64 65 6e 74 65 64 20 73 | 65 78 70 73 2c 20 61 6e |dented s|exps, an|
|000004a0| 64 20 61 6c 6c 6f 77 73 | 20 66 75 6e 63 74 69 6f |d allows| functio|
|000004b0| 6e 73 0a 73 75 63 68 20 | 61 73 20 60 65 64 65 62 |ns.such |as `edeb|
|000004c0| 75 67 2d 64 65 66 75 6e | 27 20 74 6f 20 77 6f 72 |ug-defun|' to wor|
|000004d0| 6b 20 77 69 74 68 20 73 | 75 63 68 20 69 6e 70 75 |k with s|uch inpu|
|000004e0| 74 73 2e 1f 0a 28 64 65 | 66 76 61 72 20 69 65 6c |ts...(de|fvar iel|
|000004f0| 6d 2d 64 79 6e 61 6d 69 | 63 2d 6d 75 6c 74 69 6c |m-dynami|c-multil|
|00000500| 69 6e 65 2d 69 6e 70 75 | 74 73 20 74 20 28 23 24 |ine-inpu|ts t (#$|
|00000510| 20 2e 20 2d 39 33 32 29 | 29 0a 23 40 36 39 20 2a | . -932)|).#@69 *|
|00000520| 48 6f 6f 6b 73 20 74 6f | 20 62 65 20 72 75 6e 20 |Hooks to| be run |
|00000530| 77 68 65 6e 20 49 45 4c | 4d 20 28 60 69 6e 66 65 |when IEL|M (`infe|
|00000540| 72 69 6f 72 2d 65 6d 61 | 63 73 2d 6c 69 73 70 2d |rior-ema|cs-lisp-|
|00000550| 6d 6f 64 65 27 29 20 69 | 73 20 73 74 61 72 74 65 |mode') i|s starte|
|00000560| 64 2e 1f 0a 28 64 65 66 | 76 61 72 20 69 65 6c 6d |d...(def|var ielm|
|00000570| 2d 6d 6f 64 65 2d 68 6f | 6f 6b 20 6e 69 6c 20 28 |-mode-ho|ok nil (|
|00000580| 23 24 20 2e 20 2d 31 33 | 31 31 29 29 0a 23 40 37 |#$ . -13|11)).#@7|
|00000590| 38 20 42 75 66 66 65 72 | 20 69 6e 20 77 68 69 63 |8 Buffer| in whic|
|000005a0| 68 20 49 45 4c 4d 20 73 | 65 78 70 73 20 77 69 6c |h IELM s|exps wil|
|000005b0| 6c 20 62 65 20 65 76 61 | 6c 75 61 74 65 64 2e 0a |l be eva|luated..|
|000005c0| 54 68 69 73 20 76 61 72 | 69 61 62 6c 65 20 69 73 |This var|iable is|
|000005d0| 20 62 75 66 66 65 72 2d | 6c 6f 63 61 6c 2e 1f 0a | buffer-|local...|
|000005e0| 28 64 65 66 76 61 72 20 | 69 65 6c 6d 2d 77 6f 72 |(defvar |ielm-wor|
|000005f0| 6b 69 6e 67 2d 62 75 66 | 66 65 72 20 6e 69 6c 20 |king-buf|fer nil |
|00000600| 28 23 24 20 2e 20 31 34 | 32 36 29 29 0a 23 40 34 |(#$ . 14|26)).#@4|
|00000610| 32 20 4d 65 73 73 61 67 | 65 20 74 6f 20 64 69 73 |2 Messag|e to dis|
|00000620| 70 6c 61 79 20 77 68 65 | 6e 20 49 45 4c 4d 20 69 |play whe|n IELM i|
|00000630| 73 20 73 74 61 72 74 65 | 64 2e 1f 0a 28 64 65 66 |s starte|d...(def|
|00000640| 76 61 72 20 69 65 6c 6d | 2d 68 65 61 64 65 72 20 |var ielm|-header |
|00000650| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 c2 c3 |(byte-co|de "....|
|00000660| 4f c4 c5 52 87 22 20 5b | 22 2a 2a 2a 20 57 65 6c |O..R." [|"*** Wel|
|00000670| 63 6f 6d 65 20 74 6f 20 | 49 45 4c 4d 20 76 65 72 |come to |IELM ver|
|00000680| 73 69 6f 6e 20 22 20 22 | 24 52 65 76 69 73 69 6f |sion " "|$Revisio|
|00000690| 6e 3a 20 31 2e 37 20 24 | 22 20 31 31 20 2d 32 20 |n: 1.7 $|" 11 -2 |
|000006a0| 22 20 2a 2a 2a 20 20 54 | 79 70 65 20 28 64 65 73 |" ***  T|ype (des|
|000006b0| 63 72 69 62 65 2d 6d 6f | 64 65 29 20 66 6f 72 20 |cribe-mo|de) for |
|000006c0| 68 65 6c 70 2e 5c 6e 22 | 20 22 49 45 4c 4d 20 68 |help.\n"| "IELM h|
|000006d0| 61 73 20 41 42 53 4f 4c | 55 54 45 4c 59 20 4e 4f |as ABSOL|UTELY NO|
|000006e0| 20 57 41 52 52 41 4e 54 | 59 3b 20 74 79 70 65 20 | WARRANT|Y; type |
|000006f0| 28 64 65 73 63 72 69 62 | 65 2d 6e 6f 2d 77 61 72 |(describ|e-no-war|
|00000700| 72 61 6e 74 79 29 20 66 | 6f 72 20 64 65 74 61 69 |ranty) f|or detai|
|00000710| 6c 73 2e 5c 6e 22 5d 20 | 34 29 20 28 23 24 20 2e |ls.\n"] |4) (#$ .|
|00000720| 20 31 35 35 34 29 29 0a | 28 62 79 74 65 2d 63 6f | 1554)).|(byte-co|
|00000730| 64 65 20 22 c0 c1 21 84 | 08 00 c2 11 c1 0b 42 13 |de "..!.|......B.|
|00000740| 09 84 6b 00 c4 c5 0e 06 | 5c 22 83 24 00 c7 20 11 |..k.....|\".$.. .|
|00000750| c8 09 0e 09 5c 22 88 82 | 29 00 ca 0e 09 42 11 cb |....\"..|)....B..|
|00000760| 09 cc cd 23 88 cb 09 ce | cf 23 88 cb 09 d0 d1 23 |...#....|.#.....#|
|00000770| 88 cb 09 d2 d3 23 88 cb | 09 d4 d5 23 88 cb 09 d6 |.....#..|...#....|
|00000780| d7 23 88 cb 09 d8 d9 23 | 88 cb 09 da db 23 88 cb |.#.....#|.....#..|
|00000790| 09 dc dd 23 88 cb 09 de | df 23 88 cb 09 e0 e1 23 |...#....|.#.....#|
|000007a0| 88 c2 87 22 20 5b 62 6f | 75 6e 64 70 20 69 65 6c |..." [bo|undp iel|
|000007b0| 6d 2d 6d 61 70 20 6e 69 | 6c 20 63 75 72 72 65 6e |m-map ni|l curren|
|000007c0| 74 2d 6c 6f 61 64 2d 6c | 69 73 74 20 73 74 72 69 |t-load-l|ist stri|
|000007d0| 6e 67 2d 6d 61 74 63 68 | 20 22 4c 75 63 69 64 22 |ng-match| "Lucid"|
|000007e0| 20 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 20 6d | emacs-v|ersion m|
|000007f0| 61 6b 65 2d 73 70 61 72 | 73 65 2d 6b 65 79 6d 61 |ake-spar|se-keyma|
|00000800| 70 20 73 65 74 2d 6b 65 | 79 6d 61 70 2d 70 61 72 |p set-ke|ymap-par|
|00000810| 65 6e 74 20 63 6f 6d 69 | 6e 74 2d 6d 6f 64 65 2d |ent comi|nt-mode-|
|00000820| 6d 61 70 20 6b 65 79 6d | 61 70 20 64 65 66 69 6e |map keym|ap defin|
|00000830| 65 2d 6b 65 79 20 22 09 | 22 20 63 6f 6d 69 6e 74 |e-key ".|" comint|
|00000840| 2d 64 79 6e 61 6d 69 63 | 2d 63 6f 6d 70 6c 65 74 |-dynamic|-complet|
|00000850| 65 20 22 0d 22 20 69 65 | 6c 6d 2d 72 65 74 75 72 |e "." ie|lm-retur|
|00000860| 6e 20 22 5c 6e 22 20 69 | 65 6c 6d 2d 73 65 6e 64 |n "\n" i|elm-send|
|00000870| 2d 69 6e 70 75 74 20 22 | 1b 18 22 20 65 76 61 6c |-input "|.." eval|
|00000880| 2d 64 65 66 75 6e 20 22 | 1b 09 22 20 6c 69 73 70 |-defun "|.." lisp|
|00000890| 2d 63 6f 6d 70 6c 65 74 | 65 2d 73 79 6d 62 6f 6c |-complet|e-symbol|
|000008a0| 20 22 1b 11 22 20 69 6e | 64 65 6e 74 2d 73 65 78 | ".." in|dent-sex|
|000008b0| 70 20 22 1b 71 22 20 6c | 69 73 70 2d 66 69 6c 6c |p ".q" l|isp-fill|
|000008c0| 2d 70 61 72 61 67 72 61 | 70 68 20 22 7f 22 20 62 |-paragra|ph "." b|
|000008d0| 61 63 6b 77 61 72 64 2d | 64 65 6c 65 74 65 2d 63 |ackward-|delete-c|
|000008e0| 68 61 72 2d 75 6e 74 61 | 62 69 66 79 20 22 03 02 |har-unta|bify "..|
|000008f0| 22 20 69 65 6c 6d 2d 63 | 68 61 6e 67 65 2d 77 6f |" ielm-c|hange-wo|
|00000900| 72 6b 69 6e 67 2d 62 75 | 66 66 65 72 20 22 03 06 |rking-bu|ffer "..|
|00000910| 22 20 69 65 6c 6d 2d 64 | 69 73 70 6c 61 79 2d 77 |" ielm-d|isplay-w|
|00000920| 6f 72 6b 69 6e 67 2d 62 | 75 66 66 65 72 20 22 03 |orking-b|uffer ".|
|00000930| 16 22 20 69 65 6c 6d 2d | 70 72 69 6e 74 2d 77 6f |." ielm-|print-wo|
|00000940| 72 6b 69 6e 67 2d 62 75 | 66 66 65 72 5d 20 34 29 |rking-bu|ffer] 4)|
|00000950| 0a 23 40 35 34 20 41 64 | 64 69 74 69 6f 6e 61 6c |.#@54 Ad|ditional|
|00000960| 20 65 78 70 72 65 73 73 | 69 6f 6e 73 20 74 6f 20 | express|ions to |
|00000970| 68 69 67 68 6c 69 67 68 | 74 20 69 6e 20 69 65 6c |highligh|t in iel|
|00000980| 6d 20 62 75 66 66 65 72 | 73 2e 1f 0a 28 64 65 66 |m buffer|s...(def|
|00000990| 76 61 72 20 69 65 6c 6d | 2d 66 6f 6e 74 2d 6c 6f |var ielm|-font-lo|
|000009a0| 63 6b 2d 6b 65 79 77 6f | 72 64 73 20 28 62 79 74 |ck-keywo|rds (byt|
|000009b0| 65 2d 63 6f 64 65 20 22 | c0 c1 5c 6e 21 50 c3 42 |e-code "|..\n!P.B|
|000009c0| c4 44 87 22 20 5b 22 5e | 22 20 72 65 67 65 78 70 |.D." ["^|" regexp|
|000009d0| 2d 71 75 6f 74 65 20 69 | 65 6c 6d 2d 70 72 6f 6d |-quote i|elm-prom|
|000009e0| 70 74 20 66 6f 6e 74 2d | 6c 6f 63 6b 2d 6b 65 79 |pt font-|lock-key|
|000009f0| 77 6f 72 64 2d 66 61 63 | 65 20 28 22 5c 5c 28 5e |word-fac|e ("\\(^|
|00000a00| 5c 5c 2a 5c 5c 2a 5c 5c | 2a 5b 5e 2a 5d 2b 5c 5c |\\*\\*\\|*[^*]+\\|
|00000a10| 2a 5c 5c 2a 5c 5c 2a 5c | 5c 29 5c 5c 28 2e 2a 24 |*\\*\\*\|\)\\(.*$|
|00000a20| 5c 5c 29 22 20 28 31 20 | 66 6f 6e 74 2d 6c 6f 63 |\\)" (1 |font-loc|
|00000a30| 6b 2d 63 6f 6d 6d 65 6e | 74 2d 66 61 63 65 29 20 |k-commen|t-face) |
|00000a40| 28 32 20 66 6f 6e 74 2d | 6c 6f 63 6b 2d 72 65 66 |(2 font-|lock-ref|
|00000a50| 65 72 65 6e 63 65 2d 66 | 61 63 65 29 29 5d 20 33 |erence-f|ace))] 3|
|00000a60| 29 20 28 23 24 20 2e 20 | 32 33 39 30 29 29 0a 23 |) (#$ . |2390)).#|
|00000a70| 40 34 38 20 50 6f 73 73 | 69 62 6c 79 20 69 6e 64 |@48 Poss|ibly ind|
|00000a80| 65 6e 74 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |ent the |current |
|00000a90| 6c 69 6e 65 20 61 73 20 | 6c 69 73 70 20 63 6f 64 |line as |lisp cod|
|00000aa0| 65 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 69 |e...(def|alias 'i|
|00000ab0| 65 6c 6d 2d 74 61 62 20 | 23 5b 6e 69 6c 20 22 68 |elm-tab |#[nil "h|
|00000ac0| c0 3d 84 0d 00 68 7a c1 | 3d 85 11 00 c2 20 88 c3 |.=...hz.|=.... ..|
|00000ad0| 87 22 20 5b 31 30 20 33 | 32 20 69 65 6c 6d 2d 69 |." [10 3|2 ielm-i|
|00000ae0| 6e 64 65 6e 74 2d 6c 69 | 6e 65 20 74 5d 20 32 20 |ndent-li|ne t] 2 |
|00000af0| 28 23 24 20 2e 20 32 36 | 37 36 29 20 6e 69 6c 5d |(#$ . 26|76) nil]|
|00000b00| 29 0a 23 40 34 30 20 43 | 6f 6d 70 6c 65 74 65 20 |).#@40 C|omplete |
|00000b10| 74 68 65 20 6c 69 73 70 | 20 73 79 6d 62 6f 6c 20 |the lisp| symbol |
|00000b20| 62 65 66 6f 72 65 20 70 | 6f 69 6e 74 2e 1f 0a 28 |before p|oint...(|
|00000b30| 64 65 66 61 6c 69 61 73 | 20 27 69 65 6c 6d 2d 63 |defalias| 'ielm-c|
|00000b40| 6f 6d 70 6c 65 74 65 2d | 73 79 6d 62 6f 6c 20 23 |omplete-|symbol #|
|00000b50| 5b 6e 69 6c 20 22 c0 20 | 19 c2 c3 21 89 1c 85 0e |[nil ". |...!....|
|00000b60| 00 c0 5c 66 21 1d c6 20 | 88 09 c0 20 55 3f 86 2a |..\f!.. |... U?.*|
|00000b70| 00 5c 66 83 27 00 0d c0 | 5c 66 21 55 3f 82 2a 00 |.\f.'...|\f!U?.*.|
|00000b80| c2 c3 21 2b 87 22 20 5b | 62 75 66 66 65 72 2d 6d |..!+." [|buffer-m|
|00000b90| 6f 64 69 66 69 65 64 2d | 74 69 63 6b 20 62 74 69 |odified-|tick bti|
|00000ba0| 63 6b 20 67 65 74 2d 62 | 75 66 66 65 72 20 22 2a |ck get-b|uffer "*|
|00000bb0| 43 6f 6d 70 6c 65 74 69 | 6f 6e 73 2a 22 20 63 62 |Completi|ons*" cb|
|00000bc0| 75 66 66 65 72 20 63 74 | 69 63 6b 20 6c 69 73 70 |uffer ct|ick lisp|
|00000bd0| 2d 63 6f 6d 70 6c 65 74 | 65 2d 73 79 6d 62 6f 6c |-complet|e-symbol|
|00000be0| 5d 20 34 20 28 23 24 20 | 2e 20 32 38 32 33 29 5d |] 4 (#$ |. 2823)]|
|00000bf0| 29 0a 23 40 36 31 20 44 | 79 6e 61 6d 69 63 61 6c |).#@61 D|ynamical|
|00000c00| 6c 79 20 63 6f 6d 70 6c | 65 74 65 20 66 69 6c 65 |ly compl|ete file|
|00000c10| 6e 61 6d 65 20 62 65 66 | 6f 72 65 20 70 6f 69 6e |name bef|ore poin|
|00000c20| 74 2c 20 69 66 20 69 6e | 20 61 20 73 74 72 69 6e |t, if in| a strin|
|00000c30| 67 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 69 |g...(def|alias 'i|
|00000c40| 65 6c 6d 2d 63 6f 6d 70 | 6c 65 74 65 2d 66 69 6c |elm-comp|lete-fil|
|00000c50| 65 6e 61 6d 65 20 23 5b | 6e 69 6c 20 22 c0 c1 5c |ename #[|nil "..\|
|00000c60| 6e 60 5c 22 38 85 0b 00 | c3 20 87 22 20 5b 33 20 |n`\"8...|. ." [3 |
|00000c70| 70 61 72 73 65 2d 70 61 | 72 74 69 61 6c 2d 73 65 |parse-pa|rtial-se|
|00000c80| 78 70 20 63 6f 6d 69 6e | 74 2d 6c 61 73 74 2d 69 |xp comin|t-last-i|
|00000c90| 6e 70 75 74 2d 73 74 61 | 72 74 20 63 6f 6d 69 6e |nput-sta|rt comin|
|00000ca0| 74 2d 64 79 6e 61 6d 69 | 63 2d 63 6f 6d 70 6c 65 |t-dynami|c-comple|
|00000cb0| 74 65 2d 66 69 6c 65 6e | 61 6d 65 5d 20 34 20 28 |te-filen|ame] 4 (|
|00000cc0| 23 24 20 2e 20 33 30 36 | 33 29 5d 29 0a 23 40 36 |#$ . 306|3)]).#@6|
|00000cd0| 36 20 49 6e 64 65 6e 74 | 20 74 68 65 20 63 75 72 |6 Indent| the cur|
|00000ce0| 72 65 6e 74 20 6c 69 6e | 65 20 61 73 20 4c 69 73 |rent lin|e as Lis|
|00000cf0| 70 20 63 6f 64 65 20 69 | 66 20 69 74 20 69 73 20 |p code i|f it is |
|00000d00| 6e 6f 74 20 61 20 70 72 | 6f 6d 70 74 20 6c 69 6e |not a pr|ompt lin|
|00000d10| 65 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 69 |e...(def|alias 'i|
|00000d20| 65 6c 6d 2d 69 6e 64 65 | 6e 74 2d 6c 69 6e 65 20 |elm-inde|nt-line |
|00000d30| 23 5b 6e 69 6c 20 22 8a | c0 79 88 c1 5c 6e 21 29 |#[nil ".|.y..\n!)|
|00000d40| 3f 85 0e 00 c3 20 87 22 | 20 5b 30 20 6c 6f 6f 6b |?.... ."| [0 look|
|00000d50| 69 6e 67 2d 61 74 20 63 | 6f 6d 69 6e 74 2d 70 72 |ing-at c|omint-pr|
|00000d60| 6f 6d 70 74 2d 72 65 67 | 65 78 70 20 6c 69 73 70 |ompt-reg|exp lisp|
|00000d70| 2d 69 6e 64 65 6e 74 2d | 6c 69 6e 65 5d 20 32 20 |-indent-|line] 2 |
|00000d80| 28 23 24 20 2e 20 33 32 | 38 32 29 5d 29 0a 23 40 |(#$ . 32|82)]).#@|
|00000d90| 36 34 20 50 72 69 6e 74 | 20 74 68 65 20 63 75 72 |64 Print| the cur|
|00000da0| 72 65 6e 74 20 49 45 4c | 4d 20 77 6f 72 6b 69 6e |rent IEL|M workin|
|00000db0| 67 20 62 75 66 66 65 72 | 27 73 20 6e 61 6d 65 20 |g buffer|'s name |
|00000dc0| 69 6e 20 74 68 65 20 65 | 63 68 6f 20 61 72 65 61 |in the e|cho area|
|00000dd0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 69 65 |...(defa|lias 'ie|
|00000de0| 6c 6d 2d 70 72 69 6e 74 | 2d 77 6f 72 6b 69 6e 67 |lm-print|-working|
|00000df0| 2d 62 75 66 66 65 72 20 | 23 5b 6e 69 6c 20 22 c0 |-buffer |#[nil ".|
|00000e00| c1 c2 0b 21 5c 22 87 22 | 20 5b 6d 65 73 73 61 67 |...!\"."| [messag|
|00000e10| 65 20 22 54 68 65 20 63 | 75 72 72 65 6e 74 20 77 |e "The c|urrent w|
|00000e20| 6f 72 6b 69 6e 67 20 62 | 75 66 66 65 72 20 69 73 |orking b|uffer is|
|00000e30| 3a 20 25 73 22 20 62 75 | 66 66 65 72 2d 6e 61 6d |: %s" bu|ffer-nam|
|00000e40| 65 20 69 65 6c 6d 2d 77 | 6f 72 6b 69 6e 67 2d 62 |e ielm-w|orking-b|
|00000e50| 75 66 66 65 72 5d 20 34 | 20 28 23 24 20 2e 20 33 |uffer] 4| (#$ . 3|
|00000e60| 34 37 35 29 20 6e 69 6c | 5d 29 0a 23 40 31 34 37 |475) nil|]).#@147|
|00000e70| 20 44 69 73 70 6c 61 79 | 20 74 68 65 20 63 75 72 | Display| the cur|
|00000e80| 72 65 6e 74 20 49 45 4c | 4d 20 77 6f 72 6b 69 6e |rent IEL|M workin|
|00000e90| 67 20 62 75 66 66 65 72 | 2e 0a 44 6f 6e 27 74 20 |g buffer|..Don't |
|00000ea0| 66 6f 72 67 65 74 20 74 | 68 61 74 20 73 65 6c 65 |forget t|hat sele|
|00000eb0| 63 74 69 6e 67 20 74 68 | 61 74 20 62 75 66 66 65 |cting th|at buffe|
|00000ec0| 72 20 77 69 6c 6c 20 63 | 68 61 6e 67 65 20 69 74 |r will c|hange it|
|00000ed0| 73 20 76 61 6c 75 65 20 | 6f 66 20 60 70 6f 69 6e |s value |of `poin|
|00000ee0| 74 27 0a 74 6f 20 69 74 | 73 20 76 61 6c 75 65 20 |t'.to it|s value |
|00000ef0| 6f 66 20 60 77 69 6e 64 | 6f 77 2d 70 6f 69 6e 74 |of `wind|ow-point|
|00000f00| 27 21 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 69 |'!..(def|alias 'i|
|00000f10| 65 6c 6d 2d 64 69 73 70 | 6c 61 79 2d 77 6f 72 6b |elm-disp|lay-work|
|00000f20| 69 6e 67 2d 62 75 66 66 | 65 72 20 23 5b 6e 69 6c |ing-buff|er #[nil|
|00000f30| 20 22 c0 09 21 88 c2 20 | 87 22 20 5b 64 69 73 70 | "..!.. |." [disp|
|00000f40| 6c 61 79 2d 62 75 66 66 | 65 72 20 69 65 6c 6d 2d |lay-buff|er ielm-|
|00000f50| 77 6f 72 6b 69 6e 67 2d | 62 75 66 66 65 72 20 69 |working-|buffer i|
|00000f60| 65 6c 6d 2d 70 72 69 6e | 74 2d 77 6f 72 6b 69 6e |elm-prin|t-workin|
|00000f70| 67 2d 62 75 66 66 65 72 | 5d 20 32 20 28 23 24 20 |g-buffer|] 2 (#$ |
|00000f80| 2e 20 33 36 39 37 29 20 | 6e 69 6c 5d 29 0a 23 40 |. 3697) |nil]).#@|
|00000f90| 32 30 39 20 43 68 61 6e | 67 65 20 74 68 65 20 63 |209 Chan|ge the c|
|00000fa0| 75 72 72 65 6e 74 20 49 | 45 4c 4d 20 77 6f 72 6b |urrent I|ELM work|
|00000fb0| 69 6e 67 20 62 75 66 66 | 65 72 20 74 6f 20 42 55 |ing buff|er to BU|
|00000fc0| 46 2e 0a 54 68 69 73 20 | 69 73 20 74 68 65 20 62 |F..This |is the b|
|00000fd0| 75 66 66 65 72 20 69 6e | 20 77 68 69 63 68 20 61 |uffer in| which a|
|00000fe0| 6c 6c 20 73 65 78 70 73 | 20 65 6e 74 65 72 65 64 |ll sexps| entered|
|00000ff0| 20 61 74 20 74 68 65 20 | 49 45 4c 4d 20 70 72 6f | at the |IELM pro|
|00001000| 6d 70 74 20 61 72 65 0a | 65 76 61 6c 75 61 74 65 |mpt are.|evaluate|
|00001010| 64 2e 20 20 59 6f 75 20 | 63 61 6e 20 61 63 68 69 |d.  You |can achi|
|00001020| 65 76 65 20 74 68 65 20 | 73 61 6d 65 20 65 66 66 |eve the |same eff|
|00001030| 65 63 74 20 77 69 74 68 | 20 61 20 63 61 6c 6c 20 |ect with| a call |
|00001040| 74 6f 0a 60 73 65 74 2d | 62 75 66 66 65 72 27 20 |to.`set-|buffer' |
|00001050| 61 74 20 74 68 65 20 49 | 45 4c 4d 20 70 72 6f 6d |at the I|ELM prom|
|00001060| 70 74 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |pt...(de|falias '|
|00001070| 69 65 6c 6d 2d 63 68 61 | 6e 67 65 2d 77 6f 72 6b |ielm-cha|nge-work|
|00001080| 69 6e 67 2d 62 75 66 66 | 65 72 20 23 5b 28 62 75 |ing-buff|er #[(bu|
|00001090| 66 29 20 22 c0 09 21 86 | 09 00 c2 c3 21 14 c5 20 |f) "..!.|....!.. |
|000010a0| 87 22 20 5b 67 65 74 2d | 62 75 66 66 65 72 20 62 |." [get-|buffer b|
|000010b0| 75 66 20 65 72 72 6f 72 | 20 22 4e 6f 20 73 75 63 |uf error| "No suc|
|000010c0| 68 20 62 75 66 66 65 72 | 22 20 69 65 6c 6d 2d 77 |h buffer|" ielm-w|
|000010d0| 6f 72 6b 69 6e 67 2d 62 | 75 66 66 65 72 20 69 65 |orking-b|uffer ie|
|000010e0| 6c 6d 2d 70 72 69 6e 74 | 2d 77 6f 72 6b 69 6e 67 |lm-print|-working|
|000010f0| 2d 62 75 66 66 65 72 5d | 20 32 20 28 23 24 20 2e |-buffer]| 2 (#$ .|
|00001100| 20 33 39 38 38 29 20 22 | 62 53 65 74 20 77 6f 72 | 3988) "|bSet wor|
|00001110| 6b 69 6e 67 20 62 75 66 | 66 65 72 20 74 6f 3a 20 |king buf|fer to: |
|00001120| 22 5d 29 0a 23 40 32 32 | 33 20 4e 65 77 6c 69 6e |"]).#@22|3 Newlin|
|00001130| 65 20 61 6e 64 20 69 6e | 64 65 6e 74 2c 20 6f 72 |e and in|dent, or|
|00001140| 20 65 76 61 6c 75 61 74 | 65 20 74 68 65 20 73 65 | evaluat|e the se|
|00001150| 78 70 20 62 65 66 6f 72 | 65 20 74 68 65 20 70 72 |xp befor|e the pr|
|00001160| 6f 6d 70 74 2e 0a 43 6f | 6d 70 6c 65 74 65 20 73 |ompt..Co|mplete s|
|00001170| 65 78 70 73 20 61 72 65 | 20 65 76 61 6c 75 61 74 |exps are| evaluat|
|00001180| 65 64 3b 20 66 6f 72 20 | 69 6e 63 6f 6d 70 6c 65 |ed; for |incomple|
|00001190| 74 65 20 73 65 78 70 73 | 20 69 6e 73 65 72 74 73 |te sexps| inserts|
|000011a0| 20 61 20 6e 65 77 6c 69 | 6e 65 0a 61 6e 64 20 69 | a newli|ne.and i|
|000011b0| 6e 64 65 6e 74 73 2e 20 | 20 49 66 20 68 6f 77 65 |ndents. | If howe|
|000011c0| 76 65 72 20 60 69 65 6c | 6d 2d 64 79 6e 61 6d 69 |ver `iel|m-dynami|
|000011d0| 63 2d 72 65 74 75 72 6e | 27 20 69 73 20 6e 69 6c |c-return|' is nil|
|000011e0| 2c 20 74 68 69 73 20 61 | 6c 77 61 79 73 0a 73 69 |, this a|lways.si|
|000011f0| 6d 70 6c 79 20 69 6e 73 | 65 72 74 73 20 61 20 6e |mply ins|erts a n|
|00001200| 65 77 6c 69 6e 65 2e 1f | 0a 28 64 65 66 61 6c 69 |ewline..|.(defali|
|00001210| 61 73 20 27 69 65 6c 6d | 2d 72 65 74 75 72 6e 20 |as 'ielm|-return |
|00001220| 23 5b 6e 69 6c 20 22 08 | 83 40 00 8a c1 7f 88 c2 |#[nil ".|.@......|
|00001230| c3 20 60 5c 22 29 89 1c | 40 c5 57 83 21 00 c6 5c |. `\")..|@.W.!..\|
|00001240| 66 38 84 21 00 c7 20 82 | 3e 00 0e 08 83 3c 00 8a |f8.!.. .|>....<..|
|00001250| c9 79 88 ca 0e 0b 21 29 | 83 3c 00 8a c3 20 62 88 |.y....!)|.<... b.|
|00001260| cc c5 21 88 29 cd 20 29 | 87 cc 20 87 22 20 5b 69 |..!.). )|.. ." [i|
|00001270| 65 6c 6d 2d 64 79 6e 61 | 6d 69 63 2d 72 65 74 75 |elm-dyna|mic-retu|
|00001280| 72 6e 20 6e 69 6c 20 70 | 61 72 73 65 2d 70 61 72 |rn nil p|arse-par|
|00001290| 74 69 61 6c 2d 73 65 78 | 70 20 69 65 6c 6d 2d 70 |tial-sex|p ielm-p|
|000012a0| 6d 20 73 74 61 74 65 20 | 31 20 33 20 69 65 6c 6d |m state |1 3 ielm|
|000012b0| 2d 73 65 6e 64 2d 69 6e | 70 75 74 20 69 65 6c 6d |-send-in|put ielm|
|000012c0| 2d 64 79 6e 61 6d 69 63 | 2d 6d 75 6c 74 69 6c 69 |-dynamic|-multili|
|000012d0| 6e 65 2d 69 6e 70 75 74 | 73 20 30 20 6c 6f 6f 6b |ne-input|s 0 look|
|000012e0| 69 6e 67 2d 61 74 20 63 | 6f 6d 69 6e 74 2d 70 72 |ing-at c|omint-pr|
|000012f0| 6f 6d 70 74 2d 72 65 67 | 65 78 70 20 6e 65 77 6c |ompt-reg|exp newl|
|00001300| 69 6e 65 20 6e 65 77 6c | 69 6e 65 2d 61 6e 64 2d |ine newl|ine-and-|
|00001310| 69 6e 64 65 6e 74 5d 20 | 34 20 28 23 24 20 2e 20 |indent] |4 (#$ . |
|00001320| 34 33 39 34 29 20 6e 69 | 6c 5d 29 0a 28 64 65 66 |4394) ni|l]).(def|
|00001330| 61 6c 69 61 73 20 27 69 | 65 6c 6d 2d 69 6e 70 75 |alias 'i|elm-inpu|
|00001340| 74 2d 73 65 6e 64 65 72 | 20 23 5b 28 70 72 6f 63 |t-sender| #[(proc|
|00001350| 20 69 6e 70 75 74 29 20 | 22 08 89 11 87 22 20 5b | input) |"...." [|
|00001360| 69 6e 70 75 74 20 69 65 | 6c 6d 2d 69 6e 70 75 74 |input ie|lm-input|
|00001370| 5d 20 32 5d 29 0a 23 40 | 35 34 20 45 76 61 6c 75 |] 2]).#@|54 Evalu|
|00001380| 61 74 65 20 74 68 65 20 | 45 6d 61 63 73 20 4c 69 |ate the |Emacs Li|
|00001390| 73 70 20 65 78 70 72 65 | 73 73 69 6f 6e 20 61 66 |sp expre|ssion af|
|000013a0| 74 65 72 20 74 68 65 20 | 70 72 6f 6d 70 74 2e 1f |ter the |prompt..|
|000013b0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 69 65 6c 6d |.(defali|as 'ielm|
|000013c0| 2d 73 65 6e 64 2d 69 6e | 70 75 74 20 23 5b 6e 69 |-send-in|put #[ni|
|000013d0| 6c 20 22 70 c0 19 1a c3 | 20 88 c4 09 21 2a 87 22 |l "p....| ...!*."|
|000013e0| 20 5b 6e 69 6c 20 69 65 | 6c 6d 2d 69 6e 70 75 74 | [nil ie|lm-input|
|000013f0| 20 62 75 66 20 63 6f 6d | 69 6e 74 2d 73 65 6e 64 | buf com|int-send|
|00001400| 2d 69 6e 70 75 74 20 69 | 65 6c 6d 2d 65 76 61 6c |-input i|elm-eval|
|00001410| 2d 69 6e 70 75 74 5d 20 | 32 20 28 23 24 20 2e 20 |-input] |2 (#$ . |
|00001420| 34 39 38 37 29 20 6e 69 | 6c 5d 29 0a 23 40 34 35 |4987) ni|l]).#@45|
|00001430| 20 52 65 74 75 72 6e 20 | 6e 6f 6e 2d 6e 69 6c 20 | Return |non-nil |
|00001440| 69 66 20 53 54 52 49 4e | 47 20 69 73 20 61 6c 6c |if STRIN|G is all|
|00001450| 20 77 68 69 74 65 73 70 | 61 63 65 2e 1f 0a 28 64 | whitesp|ace...(d|
|00001460| 65 66 61 6c 69 61 73 20 | 27 69 65 6c 6d 2d 69 73 |efalias |'ielm-is|
|00001470| 2d 77 68 69 74 65 73 70 | 61 63 65 20 23 5b 28 73 |-whitesp|ace #[(s|
|00001480| 74 72 69 6e 67 29 20 22 | 08 c1 98 86 5c 6e 00 c2 |tring) "|....\n..|
|00001490| c3 08 5c 22 87 22 20 5b | 73 74 72 69 6e 67 20 22 |..\"." [|string "|
|000014a0| 22 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 |" string|-match "|
|000014b0| 5c 5c 60 5b 20 09 5c 6e | 5d 2b 5c 5c 27 22 5d 20 |\\`[ .\n|]+\\'"] |
|000014c0| 33 20 28 23 24 20 2e 20 | 35 31 36 39 29 5d 29 0a |3 (#$ . |5169)]).|
|000014d0| 28 64 65 66 61 6c 69 61 | 73 20 27 69 65 6c 6d 2d |(defalia|s 'ielm-|
|000014e0| 66 6f 72 6d 61 74 2d 65 | 72 72 6f 72 73 20 23 5b |format-e|rrors #[|
|000014f0| 28 65 72 72 6c 69 73 74 | 29 20 22 c0 19 5c 6e 83 |(errlist|) "..\n.|
|00001500| 15 00 09 c3 5c 6e 40 21 | c4 51 11 5c 6e 41 89 12 |....\n@!|.Q.\nA..|
|00001510| 84 06 00 09 c5 c6 4f 29 | 87 22 20 5b 22 22 20 72 |......O)|." ["" r|
|00001520| 65 73 75 6c 74 20 65 72 | 72 6c 69 73 74 20 70 72 |esult er|rlist pr|
|00001530| 69 6e 31 2d 74 6f 2d 73 | 74 72 69 6e 67 20 22 2c |in1-to-s|tring ",|
|00001540| 20 22 20 30 20 2d 32 5d | 20 34 5d 29 0a 28 64 65 | " 0 -2]| 4]).(de|
|00001550| 66 61 6c 69 61 73 20 27 | 69 65 6c 6d 2d 66 6f 72 |falias '|ielm-for|
|00001560| 6d 61 74 2d 65 72 72 6f | 72 20 23 5b 28 65 72 72 |mat-erro|r #[(err|
|00001570| 29 20 22 c0 c1 5c 6e 40 | c3 4e 86 5c 6e 00 c4 5c |) "..\n@|.N.\n..\|
|00001580| 6e 41 83 19 00 c0 c5 c6 | 5c 6e 41 21 5c 22 82 1a |nA......|\nA!\"..|
|00001590| 00 c7 23 87 22 20 5b 66 | 6f 72 6d 61 74 20 22 25 |..#." [f|ormat "%|
|000015a0| 73 25 73 22 20 65 72 72 | 20 65 72 72 6f 72 2d 6d |s%s" err| error-m|
|000015b0| 65 73 73 61 67 65 20 22 | 50 65 63 75 6c 69 61 72 |essage "|Peculiar|
|000015c0| 20 65 72 72 6f 72 22 20 | 22 3a 20 25 73 22 20 69 | error" |": %s" i|
|000015d0| 65 6c 6d 2d 66 6f 72 6d | 61 74 2d 65 72 72 6f 72 |elm-form|at-error|
|000015e0| 73 20 22 22 5d 20 37 5d | 29 0a 23 40 37 32 20 45 |s ""] 7]|).#@72 E|
|000015f0| 76 61 6c 75 61 74 65 20 | 74 68 65 20 4c 69 73 70 |valuate |the Lisp|
|00001600| 20 65 78 70 72 65 73 73 | 69 6f 6e 20 49 45 4c 4d | express|ion IELM|
|00001610| 2d 53 54 52 49 4e 47 2c | 20 61 6e 64 20 70 72 65 |-STRING,| and pre|
|00001620| 74 74 79 2d 70 72 69 6e | 74 20 74 68 65 20 72 65 |tty-prin|t the re|
|00001630| 73 75 6c 74 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |sult...(|defalias|
|00001640| 20 27 69 65 6c 6d 2d 65 | 76 61 6c 2d 69 6e 70 75 | 'ielm-e|val-inpu|
|00001650| 74 20 23 5b 28 69 65 6c | 6d 2d 73 74 72 69 6e 67 |t #[(iel|m-string|
|00001660| 29 20 22 c0 89 89 89 c1 | 5c 6e c3 20 1c 1d 1e 06 |) ".....|\n. ....|
|00001670| 1e 07 1e 08 1e 09 1e 5c | 6e cb 0e 5c 66 21 84 ab |.......\|n..\f!..|
|00001680| 00 cd ce cf 8f 88 0e 07 | 84 60 00 d0 5c 6e 21 84 |........|.`..\n!.|
|00001690| 36 00 d1 16 08 d2 16 07 | 70 15 82 60 00 cb 0e 5c |6.......|p..`...\|
|000016a0| 66 0e 09 c0 4f 21 83 5a | 00 0e 13 0e 14 0e 15 1e |f...O!.Z|........|
|000016b0| 16 1e 17 1e 18 8a 5c 6e | 71 88 cd d9 da 8f 88 2c |......\n|q......,|
|000016c0| 82 60 00 db 16 07 dc 16 | 08 0d 5c 6e 3d 84 6d 00 |.`......|..\n=.m.|
|000016d0| dd de 0d 5c 22 88 0d 12 | 5c 66 62 88 0e 07 84 7a |...\"...|\fb....z|
|000016e0| 00 cd df e0 8f 88 0e 07 | 83 99 00 0e 21 83 87 00 |........|....!...|
|000016f0| e2 20 88 0e 06 e3 0e 07 | e4 52 89 16 06 0e 08 50 |. ......|.R.....P|
|00001700| 16 06 82 a5 00 0e 14 16 | 15 0e 13 16 14 0e 08 16 |........|........|
|00001710| 13 0e 06 e5 50 16 06 0e | 06 0e 26 50 16 06 e7 e8 |....P...|..&P....|
|00001720| 20 0e 06 5c 22 2e 07 87 | 22 20 5b 6e 69 6c 20 22 | ..\"...|" [nil "|
|00001730| 22 20 69 65 6c 6d 2d 77 | 6f 72 6b 69 6e 67 2d 62 |" ielm-w|orking-b|
|00001740| 75 66 66 65 72 20 69 65 | 6c 6d 2d 70 6d 20 69 65 |uffer ie|lm-pm ie|
|00001750| 6c 6d 2d 70 6d 61 72 6b | 20 69 65 6c 6d 2d 77 62 |lm-pmark| ielm-wb|
|00001760| 75 66 20 69 65 6c 6d 2d | 6f 75 74 70 75 74 20 69 |uf ielm-|output i|
|00001770| 65 6c 6d 2d 65 72 72 6f | 72 2d 74 79 70 65 20 69 |elm-erro|r-type i|
|00001780| 65 6c 6d 2d 72 65 73 75 | 6c 74 20 69 65 6c 6d 2d |elm-resu|lt ielm-|
|00001790| 70 6f 73 20 69 65 6c 6d | 2d 66 6f 72 6d 20 69 65 |pos ielm|-form ie|
|000017a0| 6c 6d 2d 69 73 2d 77 68 | 69 74 65 73 70 61 63 65 |lm-is-wh|itespace|
|000017b0| 20 69 65 6c 6d 2d 73 74 | 72 69 6e 67 20 65 72 72 | ielm-st|ring err|
|000017c0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 19 c2 | (byte-c|ode "...|
|000017d0| 0b 21 89 11 40 14 09 41 | 15 29 c0 87 22 20 5b 6e |.!..@..A|.).." [n|
|000017e0| 69 6c 20 72 6f 75 74 20 | 72 65 61 64 2d 66 72 6f |il rout |read-fro|
|000017f0| 6d 2d 73 74 72 69 6e 67 | 20 69 65 6c 6d 2d 73 74 |m-string| ielm-st|
|00001800| 72 69 6e 67 20 69 65 6c | 6d 2d 66 6f 72 6d 20 69 |ring iel|m-form i|
|00001810| 65 6c 6d 2d 70 6f 73 5d | 20 33 29 20 28 28 65 72 |elm-pos]| 3) ((er|
|00001820| 72 6f 72 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ror (byt|e-code "|
|00001830| c0 09 21 12 c3 14 c0 87 | 22 20 5b 69 65 6c 6d 2d |..!.....|" [ielm-|
|00001840| 66 6f 72 6d 61 74 2d 65 | 72 72 6f 72 20 65 72 72 |format-e|rror err|
|00001850| 20 69 65 6c 6d 2d 72 65 | 73 75 6c 74 20 22 52 65 | ielm-re|sult "Re|
|00001860| 61 64 20 65 72 72 6f 72 | 22 20 69 65 6c 6d 2d 65 |ad error|" ielm-e|
|00001870| 72 72 6f 72 2d 74 79 70 | 65 5d 20 32 29 29 29 20 |rror-typ|e] 2))) |
|00001880| 62 75 66 66 65 72 2d 6e | 61 6d 65 20 22 57 6f 72 |buffer-n|ame "Wor|
|00001890| 6b 69 6e 67 20 62 75 66 | 66 65 72 20 68 61 73 20 |king buf|fer has |
|000018a0| 62 65 65 6e 20 6b 69 6c | 6c 65 64 22 20 22 49 45 |been kil|led" "IE|
|000018b0| 4c 4d 20 45 72 72 6f 72 | 22 20 3a 20 3a 3a 20 3a |LM Error|" : :: :|
|000018c0| 3a 3a 20 3a 3a 3a 73 61 | 76 65 20 3a 3a 73 61 76 |:: :::sa|ve ::sav|
|000018d0| 65 20 3a 73 61 76 65 20 | 28 62 79 74 65 2d 63 6f |e :save |(byte-co|
|000018e0| 64 65 20 22 08 09 5c 6e | 70 1b 1c 1d 1e 06 c7 0e |de "..\n|p.......|
|000018f0| 08 21 16 09 70 16 5c 6e | 0b 71 88 2c c7 87 22 20 |.!..p.\n|.q.,.." |
|00001900| 5b 3a 73 61 76 65 20 3a | 3a 73 61 76 65 20 3a 3a |[:save :|:save ::|
|00001910| 3a 73 61 76 65 20 69 65 | 6c 6d 2d 6f 62 75 66 20 |:save ie|lm-obuf |
|00001920| 3a 3a 3a 20 3a 3a 20 3a | 20 65 76 61 6c 20 69 65 |::: :: :| eval ie|
|00001930| 6c 6d 2d 66 6f 72 6d 20 | 69 65 6c 6d 2d 72 65 73 |lm-form |ielm-res|
|00001940| 75 6c 74 20 69 65 6c 6d | 2d 77 62 75 66 5d 20 34 |ult ielm|-wbuf] 4|
|00001950| 29 20 28 28 65 72 72 6f | 72 20 28 62 79 74 65 2d |) ((erro|r (byte-|
|00001960| 63 6f 64 65 20 22 c0 09 | 21 12 c3 14 c0 87 22 20 |code "..|!....." |
|00001970| 5b 69 65 6c 6d 2d 66 6f | 72 6d 61 74 2d 65 72 72 |[ielm-fo|rmat-err|
|00001980| 6f 72 20 65 72 72 20 69 | 65 6c 6d 2d 72 65 73 75 |or err i|elm-resu|
|00001990| 6c 74 20 22 45 76 61 6c | 20 65 72 72 6f 72 22 20 |lt "Eval| error" |
|000019a0| 69 65 6c 6d 2d 65 72 72 | 6f 72 2d 74 79 70 65 5d |ielm-err|or-type]|
|000019b0| 20 32 29 29 20 28 71 75 | 69 74 20 28 62 79 74 65 | 2)) (qu|it (byte|
|000019c0| 2d 63 6f 64 65 20 22 c0 | 11 c2 13 c4 87 22 20 5b |-code ".|....." [|
|000019d0| 22 51 75 69 74 20 64 75 | 72 69 6e 67 20 65 76 61 |"Quit du|ring eva|
|000019e0| 6c 75 61 74 69 6f 6e 22 | 20 69 65 6c 6d 2d 72 65 |luation"| ielm-re|
|000019f0| 73 75 6c 74 20 22 45 76 | 61 6c 20 65 72 72 6f 72 |sult "Ev|al error|
|00001a00| 22 20 69 65 6c 6d 2d 65 | 72 72 6f 72 2d 74 79 70 |" ielm-e|rror-typ|
|00001a10| 65 20 6e 69 6c 5d 20 31 | 29 29 29 20 22 49 45 4c |e nil] 1|))) "IEL|
|00001a20| 4d 20 65 72 72 6f 72 22 | 20 22 4d 6f 72 65 20 74 |M error"| "More t|
|00001a30| 68 61 6e 20 6f 6e 65 20 | 73 65 78 70 20 69 6e 20 |han one |sexp in |
|00001a40| 69 6e 70 75 74 22 20 6d | 65 73 73 61 67 65 20 22 |input" m|essage "|
|00001a50| 63 75 72 72 65 6e 74 20 | 62 75 66 66 65 72 20 69 |current |buffer i|
|00001a60| 73 20 6e 6f 77 3a 20 25 | 73 22 20 28 62 79 74 65 |s now: %|s" (byte|
|00001a70| 2d 63 6f 64 65 20 22 08 | c1 5c 6e 21 50 10 c1 87 |-code ".|.\n!P...|
|00001a80| 22 20 5b 69 65 6c 6d 2d | 6f 75 74 70 75 74 20 70 |" [ielm-|output p|
|00001a90| 70 2d 74 6f 2d 73 74 72 | 69 6e 67 20 69 65 6c 6d |p-to-str|ing ielm|
|00001aa0| 2d 72 65 73 75 6c 74 5d | 20 33 29 20 28 28 65 72 |-result]| 3) ((er|
|00001ab0| 72 6f 72 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ror (byt|e-code "|
|00001ac0| c0 11 c2 13 c4 87 22 20 | 5b 22 49 45 4c 4d 20 45 |......" |["IELM E|
|00001ad0| 72 72 6f 72 22 20 69 65 | 6c 6d 2d 65 72 72 6f 72 |rror" ie|lm-error|
|00001ae0| 2d 74 79 70 65 20 22 45 | 72 72 6f 72 20 64 75 72 |-type "E|rror dur|
|00001af0| 69 6e 67 20 70 72 65 74 | 74 79 2d 70 72 69 6e 74 |ing pret|ty-print|
|00001b00| 69 6e 67 20 28 62 75 67 | 20 69 6e 20 70 70 29 22 |ing (bug| in pp)"|
|00001b10| 20 69 65 6c 6d 2d 72 65 | 73 75 6c 74 20 6e 69 6c | ielm-re|sult nil|
|00001b20| 5d 20 31 29 29 20 28 71 | 75 69 74 20 28 62 79 74 |] 1)) (q|uit (byt|
|00001b30| 65 2d 63 6f 64 65 20 22 | c0 11 c2 13 c4 87 22 20 |e-code "|......" |
|00001b40| 5b 22 49 45 4c 4d 20 45 | 72 72 6f 72 22 20 69 65 |["IELM E|rror" ie|
|00001b50| 6c 6d 2d 65 72 72 6f 72 | 2d 74 79 70 65 20 22 51 |lm-error|-type "Q|
|00001b60| 75 69 74 20 64 75 72 69 | 6e 67 20 70 72 65 74 74 |uit duri|ng prett|
|00001b70| 79 2d 70 72 69 6e 74 69 | 6e 67 22 20 69 65 6c 6d |y-printi|ng" ielm|
|00001b80| 2d 72 65 73 75 6c 74 20 | 6e 69 6c 5d 20 31 29 29 |-result |nil] 1))|
|00001b90| 29 20 69 65 6c 6d 2d 6e | 6f 69 73 79 20 64 69 6e |) ielm-n|oisy din|
|00001ba0| 67 20 22 2a 2a 2a 20 22 | 20 22 20 2a 2a 2a 20 20 |g "*** "| " ***  |
|00001bb0| 22 20 22 5c 6e 22 20 69 | 65 6c 6d 2d 70 72 6f 6d |" "\n" i|elm-prom|
|00001bc0| 70 74 20 63 6f 6d 69 6e | 74 2d 6f 75 74 70 75 74 |pt comin|t-output|
|00001bd0| 2d 66 69 6c 74 65 72 20 | 69 65 6c 6d 2d 70 72 6f |-filter |ielm-pro|
|00001be0| 63 65 73 73 5d 20 38 20 | 28 23 24 20 2e 20 35 36 |cess] 8 |(#$ . 56|
|00001bf0| 31 35 29 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |15)]).(d|efalias |
|00001c00| 27 69 65 6c 6d 2d 70 72 | 6f 63 65 73 73 20 23 5b |'ielm-pr|ocess #[|
|00001c10| 6e 69 6c 20 22 c0 70 21 | 87 22 20 5b 67 65 74 2d |nil ".p!|." [get-|
|00001c20| 62 75 66 66 65 72 2d 70 | 72 6f 63 65 73 73 5d 20 |buffer-p|rocess] |
|00001c30| 32 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 69 |2]).(def|alias 'i|
|00001c40| 65 6c 6d 2d 70 6d 20 23 | 5b 6e 69 6c 20 22 c0 c1 |elm-pm #|[nil "..|
|00001c50| 70 21 21 87 22 20 5b 70 | 72 6f 63 65 73 73 2d 6d |p!!." [p|rocess-m|
|00001c60| 61 72 6b 20 67 65 74 2d | 62 75 66 66 65 72 2d 70 |ark get-|buffer-p|
|00001c70| 72 6f 63 65 73 73 5d 20 | 33 5d 29 0a 28 64 65 66 |rocess] |3]).(def|
|00001c80| 61 6c 69 61 73 20 27 69 | 65 6c 6d 2d 73 65 74 2d |alias 'i|elm-set-|
|00001c90| 70 6d 20 23 5b 28 70 6f | 73 29 20 22 c0 c1 70 21 |pm #[(po|s) "..p!|
|00001ca0| 21 5c 6e c3 93 87 22 20 | 5b 70 72 6f 63 65 73 73 |!\n..." |[process|
|00001cb0| 2d 6d 61 72 6b 20 67 65 | 74 2d 62 75 66 66 65 72 |-mark ge|t-buffer|
|00001cc0| 2d 70 72 6f 63 65 73 73 | 20 70 6f 73 20 6e 69 6c |-process| pos nil|
|00001cd0| 5d 20 33 5d 29 0a 23 40 | 31 37 34 31 20 4d 61 6a |] 3]).#@|1741 Maj|
|00001ce0| 6f 72 20 6d 6f 64 65 20 | 66 6f 72 20 69 6e 74 65 |or mode |for inte|
|00001cf0| 72 61 63 74 69 76 65 6c | 79 20 65 76 61 6c 75 61 |ractivel|y evalua|
|00001d00| 74 69 6e 67 20 45 6d 61 | 63 73 20 4c 69 73 70 20 |ting Ema|cs Lisp |
|00001d10| 65 78 70 72 65 73 73 69 | 6f 6e 73 2e 0a 55 73 65 |expressi|ons..Use|
|00001d20| 73 20 74 68 65 20 69 6e | 74 65 72 66 61 63 65 20 |s the in|terface |
|00001d30| 70 72 6f 76 69 64 65 64 | 20 62 79 20 60 63 6f 6d |provided| by `com|
|00001d40| 69 6e 74 2d 6d 6f 64 65 | 27 20 28 77 68 69 63 68 |int-mode|' (which|
|00001d50| 20 73 65 65 29 2e 0a 0a | 2a 20 5c 3c 69 65 6c 6d | see)...|* \<ielm|
|00001d60| 2d 6d 61 70 3e 5c 5b 69 | 65 6c 6d 2d 73 65 6e 64 |-map>\[i|elm-send|
|00001d70| 2d 69 6e 70 75 74 5d 20 | 65 76 61 6c 75 61 74 65 |-input] |evaluate|
|00001d80| 73 20 74 68 65 20 73 65 | 78 70 20 66 6f 6c 6c 6f |s the se|xp follo|
|00001d90| 77 69 6e 67 20 74 68 65 | 20 70 72 6f 6d 70 74 2e |wing the| prompt.|
|00001da0| 20 54 68 65 72 65 20 6d | 75 73 74 20 62 65 20 61 | There m|ust be a|
|00001db0| 74 20 6d 6f 73 74 0a 20 | 20 6f 6e 65 20 74 6f 70 |t most. | one top|
|00001dc0| 2d 6c 65 76 65 6c 20 73 | 65 78 70 20 70 65 72 20 |-level s|exp per |
|00001dd0| 70 72 6f 6d 70 74 2e 0a | 0a 2a 20 5c 5b 69 65 6c |prompt..|.* \[iel|
|00001de0| 6d 2d 72 65 74 75 72 6e | 5d 20 69 6e 73 65 72 74 |m-return|] insert|
|00001df0| 73 20 61 20 6e 65 77 6c | 69 6e 65 20 61 6e 64 20 |s a newl|ine and |
|00001e00| 69 6e 64 65 6e 74 73 2c | 20 6f 72 20 65 76 61 6c |indents,| or eval|
|00001e10| 75 61 74 65 73 20 61 0a | 20 20 63 6f 6d 70 6c 65 |uates a.|  comple|
|00001e20| 74 65 20 65 78 70 72 65 | 73 73 69 6f 6e 20 28 62 |te expre|ssion (b|
|00001e30| 75 74 20 73 65 65 20 76 | 61 72 69 61 62 6c 65 20 |ut see v|ariable |
|00001e40| 60 69 65 6c 6d 2d 64 79 | 6e 61 6d 69 63 2d 72 65 |`ielm-dy|namic-re|
|00001e50| 74 75 72 6e 27 29 2e 0a | 20 20 49 6e 70 75 74 73 |turn')..|  Inputs|
|00001e60| 20 6c 6f 6e 67 65 72 20 | 74 68 61 6e 20 6f 6e 65 | longer |than one|
|00001e70| 20 6c 69 6e 65 20 61 72 | 65 20 6d 6f 76 65 64 20 | line ar|e moved |
|00001e80| 74 6f 20 74 68 65 20 6c | 69 6e 65 20 66 6f 6c 6c |to the l|ine foll|
|00001e90| 6f 77 69 6e 67 20 74 68 | 65 0a 20 20 70 72 6f 6d |owing th|e.  prom|
|00001ea0| 70 74 20 28 62 75 74 20 | 73 65 65 20 76 61 72 69 |pt (but |see vari|
|00001eb0| 61 62 6c 65 20 60 69 65 | 6c 6d 2d 64 79 6e 61 6d |able `ie|lm-dynam|
|00001ec0| 69 63 2d 6d 75 6c 74 69 | 6c 69 6e 65 2d 69 6e 70 |ic-multi|line-inp|
|00001ed0| 75 74 73 27 29 2e 0a 0a | 2a 20 5c 5b 63 6f 6d 69 |uts')...|* \[comi|
|00001ee0| 6e 74 2d 64 79 6e 61 6d | 69 63 2d 63 6f 6d 70 6c |nt-dynam|ic-compl|
|00001ef0| 65 74 65 5d 20 63 6f 6d | 70 6c 65 74 65 73 20 4c |ete] com|pletes L|
|00001f00| 69 73 70 20 73 79 6d 62 | 6f 6c 73 20 28 6f 72 20 |isp symb|ols (or |
|00001f10| 66 69 6c 65 6e 61 6d 65 | 73 2c 20 77 69 74 68 69 |filename|s, withi|
|00001f20| 6e 20 73 74 72 69 6e 67 | 73 29 2c 20 0a 20 20 6f |n string|s), .  o|
|00001f30| 72 20 69 6e 64 65 6e 74 | 73 20 74 68 65 20 6c 69 |r indent|s the li|
|00001f40| 6e 65 20 69 66 20 74 68 | 65 72 65 20 69 73 20 6e |ne if th|ere is n|
|00001f50| 6f 74 68 69 6e 67 20 74 | 6f 20 63 6f 6d 70 6c 65 |othing t|o comple|
|00001f60| 74 65 2e 0a 0a 44 75 72 | 69 6e 67 20 65 76 61 6c |te...Dur|ing eval|
|00001f70| 75 61 74 69 6f 6e 73 2c | 20 74 68 65 20 76 61 6c |uations,| the val|
|00001f80| 75 65 73 20 6f 66 20 74 | 68 65 20 76 61 72 69 61 |ues of t|he varia|
|00001f90| 62 6c 65 73 20 60 3a 27 | 2c 20 60 3a 3a 27 2c 20 |bles `:'|, `::', |
|00001fa0| 61 6e 64 20 60 3a 3a 3a | 27 0a 61 72 65 20 74 68 |and `:::|'.are th|
|00001fb0| 65 20 72 65 73 75 6c 74 | 73 20 6f 66 20 74 68 65 |e result|s of the|
|00001fc0| 20 70 72 65 76 69 6f 75 | 73 2c 20 73 65 63 6f 6e | previou|s, secon|
|00001fd0| 64 20 70 72 65 76 69 6f | 75 73 20 61 6e 64 20 74 |d previo|us and t|
|00001fe0| 68 69 72 64 20 70 72 65 | 76 69 6f 75 73 0a 65 76 |hird pre|vious.ev|
|00001ff0| 61 6c 75 61 74 69 6f 6e | 73 20 72 65 73 70 65 63 |aluation|s respec|
|00002000| 74 69 76 65 6c 79 2e 0a | 0a 54 68 65 20 63 75 72 |tively..|.The cur|
|00002010| 72 65 6e 74 20 77 6f 72 | 6b 69 6e 67 20 62 75 66 |rent wor|king buf|
|00002020| 66 65 72 20 6d 61 79 20 | 62 65 20 63 68 61 6e 67 |fer may |be chang|
|00002030| 65 64 20 28 77 69 74 68 | 20 61 20 63 61 6c 6c 20 |ed (with| a call |
|00002040| 74 6f 0a 60 73 65 74 2d | 62 75 66 66 65 72 27 2c |to.`set-|buffer',|
|00002050| 20 6f 72 20 77 69 74 68 | 20 5c 5b 69 65 6c 6d 2d | or with| \[ielm-|
|00002060| 63 68 61 6e 67 65 2d 77 | 6f 72 6b 69 6e 67 2d 62 |change-w|orking-b|
|00002070| 75 66 66 65 72 5d 29 2c | 20 61 6e 64 20 69 74 73 |uffer]),| and its|
|00002080| 20 76 61 6c 75 65 0a 69 | 73 20 70 72 65 73 65 72 | value.i|s preser|
|00002090| 76 65 64 20 62 65 74 77 | 65 65 6e 20 73 75 63 63 |ved betw|een succ|
|000020a0| 65 73 73 69 76 65 20 65 | 76 61 6c 75 61 74 69 6f |essive e|valuatio|
|000020b0| 6e 73 2e 20 20 49 6e 20 | 74 68 69 73 20 77 61 79 |ns.  In |this way|
|000020c0| 2c 20 65 78 70 72 65 73 | 73 69 6f 6e 73 0a 6d 61 |, expres|sions.ma|
|000020d0| 79 20 62 65 20 65 76 61 | 6c 75 61 74 65 64 20 69 |y be eva|luated i|
|000020e0| 6e 20 61 20 64 69 66 66 | 65 72 65 6e 74 20 62 75 |n a diff|erent bu|
|000020f0| 66 66 65 72 20 74 68 61 | 6e 20 74 68 65 20 2a 69 |ffer tha|n the *i|
|00002100| 65 6c 6d 2a 20 62 75 66 | 66 65 72 2e 0a 44 69 73 |elm* buf|fer..Dis|
|00002110| 70 6c 61 79 20 74 68 65 | 20 6e 61 6d 65 20 6f 66 |play the| name of|
|00002120| 20 74 68 65 20 77 6f 72 | 6b 69 6e 67 20 62 75 66 | the wor|king buf|
|00002130| 66 65 72 20 77 69 74 68 | 20 5c 5b 69 65 6c 6d 2d |fer with| \[ielm-|
|00002140| 70 72 69 6e 74 2d 77 6f | 72 6b 69 6e 67 2d 62 75 |print-wo|rking-bu|
|00002150| 66 66 65 72 5d 2c 0a 6f | 72 20 74 68 65 20 62 75 |ffer],.o|r the bu|
|00002160| 66 66 65 72 20 69 74 73 | 65 6c 66 20 77 69 74 68 |ffer its|elf with|
|00002170| 20 5c 5b 69 65 6c 6d 2d | 64 69 73 70 6c 61 79 2d | \[ielm-|display-|
|00002180| 77 6f 72 6b 69 6e 67 2d | 62 75 66 66 65 72 5d 2e |working-|buffer].|
|00002190| 0a 0a 45 78 70 72 65 73 | 73 69 6f 6e 73 20 65 76 |..Expres|sions ev|
|000021a0| 61 6c 75 61 74 65 64 20 | 62 79 20 49 45 4c 4d 20 |aluated |by IELM |
|000021b0| 61 72 65 20 6e 6f 74 20 | 73 75 62 6a 65 63 74 20 |are not |subject |
|000021c0| 74 6f 20 60 64 65 62 75 | 67 2d 6f 6e 2d 71 75 69 |to `debu|g-on-qui|
|000021d0| 74 27 20 6f 72 0a 60 64 | 65 62 75 67 2d 6f 6e 2d |t' or.`d|ebug-on-|
|000021e0| 65 72 72 6f 72 27 2e 0a | 0a 54 68 65 20 62 65 68 |error'..|.The beh|
|000021f0| 61 76 69 6f 75 72 20 6f | 66 20 49 45 4c 4d 20 6d |aviour o|f IELM m|
|00002200| 61 79 20 62 65 20 63 75 | 73 74 6f 6d 69 73 65 64 |ay be cu|stomised|
|00002210| 20 77 69 74 68 20 74 68 | 65 20 66 6f 6c 6c 6f 77 | with th|e follow|
|00002220| 69 6e 67 20 76 61 72 69 | 61 62 6c 65 73 3a 0a 2a |ing vari|ables:.*|
|00002230| 20 54 6f 20 73 74 6f 70 | 20 62 65 65 70 69 6e 67 | To stop| beeping|
|00002240| 20 6f 6e 20 65 72 72 6f | 72 2c 20 73 65 74 20 60 | on erro|r, set `|
|00002250| 69 65 6c 6d 2d 6e 6f 69 | 73 79 27 20 74 6f 20 6e |ielm-noi|sy' to n|
|00002260| 69 6c 0a 2a 20 49 66 20 | 79 6f 75 20 64 6f 6e 27 |il.* If |you don'|
|00002270| 74 20 6c 69 6b 65 20 74 | 68 65 20 70 72 6f 6d 70 |t like t|he promp|
|00002280| 74 2c 20 79 6f 75 20 63 | 61 6e 20 63 68 61 6e 67 |t, you c|an chang|
|00002290| 65 20 69 74 20 62 79 20 | 73 65 74 74 69 6e 67 20 |e it by |setting |
|000022a0| 60 69 65 6c 6d 2d 70 72 | 6f 6d 70 74 27 2e 0a 2a |`ielm-pr|ompt'..*|
|000022b0| 20 53 65 74 20 60 69 65 | 6c 6d 2d 64 79 6e 61 6d | Set `ie|lm-dynam|
|000022c0| 69 63 2d 72 65 74 75 72 | 6e 27 20 74 6f 20 6e 69 |ic-retur|n' to ni|
|000022d0| 6c 20 66 6f 72 20 62 69 | 6e 64 69 6e 67 73 20 6c |l for bi|ndings l|
|000022e0| 69 6b 65 20 60 6c 69 73 | 70 2d 69 6e 74 65 72 61 |ike `lis|p-intera|
|000022f0| 63 74 69 6f 6e 2d 6d 6f | 64 65 27 0a 2a 20 45 6e |ction-mo|de'.* En|
|00002300| 74 72 79 20 74 6f 20 74 | 68 69 73 20 6d 6f 64 65 |try to t|his mode|
|00002310| 20 72 75 6e 73 20 60 63 | 6f 6d 69 6e 74 2d 6d 6f | runs `c|omint-mo|
|00002320| 64 65 2d 68 6f 6f 6b 27 | 20 61 6e 64 20 60 69 65 |de-hook'| and `ie|
|00002330| 6c 6d 2d 6d 6f 64 65 2d | 68 6f 6f 6b 27 0a 20 28 |lm-mode-|hook'. (|
|00002340| 69 6e 20 74 68 61 74 20 | 6f 72 64 65 72 29 2e 0a |in that |order)..|
|00002350| 0a 43 75 73 74 6f 6d 69 | 73 65 64 20 62 69 6e 64 |.Customi|sed bind|
|00002360| 69 6e 67 73 20 6d 61 79 | 20 62 65 20 64 65 66 69 |ings may| be defi|
|00002370| 6e 65 64 20 69 6e 20 60 | 69 65 6c 6d 2d 6d 61 70 |ned in `|ielm-map|
|00002380| 27 2c 20 77 68 69 63 68 | 20 63 75 72 72 65 6e 74 |', which| current|
|00002390| 6c 79 20 63 6f 6e 74 61 | 69 6e 73 3a 0a 5c 7b 69 |ly conta|ins:.\{i|
|000023a0| 65 6c 6d 2d 6d 61 70 7d | 1f 0a 28 64 65 66 61 6c |elm-map}|..(defal|
|000023b0| 69 61 73 20 27 69 6e 66 | 65 72 69 6f 72 2d 65 6d |ias 'inf|erior-em|
|000023c0| 61 63 73 2d 6c 69 73 70 | 2d 6d 6f 64 65 20 23 5b |acs-lisp|-mode #[|
|000023d0| 6e 69 6c 20 22 c0 20 88 | c1 c2 0b 21 50 14 c5 c6 |nil ". .|...!P...|
|000023e0| 21 88 5c 66 16 06 c7 16 | 08 c9 16 5c 6e cb 16 5c |!.\f....|...\n..\|
|000023f0| 66 cd 16 0e cf 16 10 d1 | 16 12 d3 0e 14 21 88 d5 |f.......|.....!..|
|00002400| 0e 16 21 88 c5 d7 21 88 | c5 d8 21 88 70 16 18 d9 |..!...!.|..!.p...|
|00002410| 16 17 c9 16 1a c5 da 21 | 88 c9 16 1b c5 db 21 88 |.......!|......!.|
|00002420| c9 16 1c c5 dc 21 88 c5 | dd 21 88 de 16 1d df 70 |.....!..|.!.....p|
|00002430| 21 84 86 00 e0 e1 70 e2 | 23 88 e3 e4 20 21 88 64 |!.....p.|#... !.d|
|00002440| 62 88 0e 25 63 88 e6 64 | 21 88 e7 e4 20 0b 5c 22 |b..%c..d|!... .\"|
|00002450| 88 0e 28 e9 20 c9 93 88 | ea eb 70 21 e7 5c 22 88 |..(. ...|..p!.\".|
|00002460| ec ed 21 87 22 20 5b 63 | 6f 6d 69 6e 74 2d 6d 6f |..!." [c|omint-mo|
|00002470| 64 65 20 22 5e 22 20 72 | 65 67 65 78 70 2d 71 75 |de "^" r|egexp-qu|
|00002480| 6f 74 65 20 69 65 6c 6d | 2d 70 72 6f 6d 70 74 20 |ote ielm|-prompt |
|00002490| 63 6f 6d 69 6e 74 2d 70 | 72 6f 6d 70 74 2d 72 65 |comint-p|rompt-re|
|000024a0| 67 65 78 70 20 6d 61 6b | 65 2d 6c 6f 63 61 6c 2d |gexp mak|e-local-|
|000024b0| 76 61 72 69 61 62 6c 65 | 20 70 61 72 61 67 72 61 |variable| paragra|
|000024c0| 70 68 2d 73 74 61 72 74 | 20 69 65 6c 6d 2d 69 6e |ph-start| ielm-in|
|000024d0| 70 75 74 2d 73 65 6e 64 | 65 72 20 63 6f 6d 69 6e |put-send|er comin|
|000024e0| 74 2d 69 6e 70 75 74 2d | 73 65 6e 64 65 72 20 6e |t-input-|sender n|
|000024f0| 69 6c 20 63 6f 6d 69 6e | 74 2d 70 72 6f 63 65 73 |il comin|t-proces|
|00002500| 73 2d 65 63 68 6f 65 73 | 20 28 69 65 6c 6d 2d 74 |s-echoes| (ielm-t|
|00002510| 61 62 20 63 6f 6d 69 6e | 74 2d 72 65 70 6c 61 63 |ab comin|t-replac|
|00002520| 65 2d 62 79 2d 65 78 70 | 61 6e 64 65 64 2d 68 69 |e-by-exp|anded-hi|
|00002530| 73 74 6f 72 79 20 69 65 | 6c 6d 2d 63 6f 6d 70 6c |story ie|lm-compl|
|00002540| 65 74 65 2d 66 69 6c 65 | 6e 61 6d 65 20 69 65 6c |ete-file|name iel|
|00002550| 6d 2d 63 6f 6d 70 6c 65 | 74 65 2d 73 79 6d 62 6f |m-comple|te-symbo|
|00002560| 6c 29 20 63 6f 6d 69 6e | 74 2d 64 79 6e 61 6d 69 |l) comin|t-dynami|
|00002570| 63 2d 63 6f 6d 70 6c 65 | 74 65 2d 66 75 6e 63 74 |c-comple|te-funct|
|00002580| 69 6f 6e 73 20 69 65 6c | 6d 2d 67 65 74 2d 6f 6c |ions iel|m-get-ol|
|00002590| 64 2d 69 6e 70 75 74 20 | 63 6f 6d 69 6e 74 2d 67 |d-input |comint-g|
|000025a0| 65 74 2d 6f 6c 64 2d 69 | 6e 70 75 74 20 69 6e 66 |et-old-i|nput inf|
|000025b0| 65 72 69 6f 72 2d 65 6d | 61 63 73 2d 6c 69 73 70 |erior-em|acs-lisp|
|000025c0| 2d 6d 6f 64 65 20 6d 61 | 6a 6f 72 2d 6d 6f 64 65 |-mode ma|jor-mode|
|000025d0| 20 22 49 45 4c 4d 22 20 | 6d 6f 64 65 2d 6e 61 6d | "IELM" |mode-nam|
|000025e0| 65 20 75 73 65 2d 6c 6f | 63 61 6c 2d 6d 61 70 20 |e use-lo|cal-map |
|000025f0| 69 65 6c 6d 2d 6d 61 70 | 20 73 65 74 2d 73 79 6e |ielm-map| set-syn|
|00002600| 74 61 78 2d 74 61 62 6c | 65 20 65 6d 61 63 73 2d |tax-tabl|e emacs-|
|00002610| 6c 69 73 70 2d 6d 6f 64 | 65 2d 73 79 6e 74 61 78 |lisp-mod|e-syntax|
|00002620| 2d 74 61 62 6c 65 20 69 | 6e 64 65 6e 74 2d 6c 69 |-table i|ndent-li|
|00002630| 6e 65 2d 66 75 6e 63 74 | 69 6f 6e 20 69 65 6c 6d |ne-funct|ion ielm|
|00002640| 2d 77 6f 72 6b 69 6e 67 | 2d 62 75 66 66 65 72 20 |-working|-buffer |
|00002650| 69 65 6c 6d 2d 69 6e 64 | 65 6e 74 2d 6c 69 6e 65 |ielm-ind|ent-line|
|00002660| 20 3a 20 3a 3a 20 3a 3a | 3a 20 66 6f 6e 74 2d 6c | : :: ::|: font-l|
|00002670| 6f 63 6b 2d 64 65 66 61 | 75 6c 74 73 20 28 69 65 |ock-defa|ults (ie|
|00002680| 6c 6d 2d 66 6f 6e 74 2d | 6c 6f 63 6b 2d 6b 65 79 |lm-font-|lock-key|
|00002690| 77 6f 72 64 73 20 6e 69 | 6c 20 6e 69 6c 20 28 28 |words ni|l nil ((|
|000026a0| 35 38 20 2e 20 22 77 22 | 29 20 28 34 35 20 2e 20 |58 . "w"|) (45 . |
|000026b0| 22 77 22 29 20 28 34 32 | 20 2e 20 22 77 22 29 29 |"w") (42| . "w"))|
|000026c0| 29 20 63 6f 6d 69 6e 74 | 2d 63 68 65 63 6b 2d 70 |) comint|-check-p|
|000026d0| 72 6f 63 20 73 74 61 72 | 74 2d 70 72 6f 63 65 73 |roc star|t-proces|
|000026e0| 73 20 22 69 65 6c 6d 22 | 20 22 63 61 74 22 20 70 |s "ielm"| "cat" p|
|000026f0| 72 6f 63 65 73 73 2d 6b | 69 6c 6c 2d 77 69 74 68 |rocess-k|ill-with|
|00002700| 6f 75 74 2d 71 75 65 72 | 79 20 69 65 6c 6d 2d 70 |out-quer|y ielm-p|
|00002710| 72 6f 63 65 73 73 20 69 | 65 6c 6d 2d 68 65 61 64 |rocess i|elm-head|
|00002720| 65 72 20 69 65 6c 6d 2d | 73 65 74 2d 70 6d 20 63 |er ielm-|set-pm c|
|00002730| 6f 6d 69 6e 74 2d 6f 75 | 74 70 75 74 2d 66 69 6c |omint-ou|tput-fil|
|00002740| 74 65 72 20 63 6f 6d 69 | 6e 74 2d 6c 61 73 74 2d |ter comi|nt-last-|
|00002750| 69 6e 70 75 74 2d 73 74 | 61 72 74 20 69 65 6c 6d |input-st|art ielm|
|00002760| 2d 70 6d 20 73 65 74 2d | 70 72 6f 63 65 73 73 2d |-pm set-|process-|
|00002770| 66 69 6c 74 65 72 20 67 | 65 74 2d 62 75 66 66 65 |filter g|et-buffe|
|00002780| 72 2d 70 72 6f 63 65 73 | 73 20 72 75 6e 2d 68 6f |r-proces|s run-ho|
|00002790| 6f 6b 73 20 69 65 6c 6d | 2d 6d 6f 64 65 2d 68 6f |oks ielm|-mode-ho|
|000027a0| 6f 6b 5d 20 34 20 28 23 | 24 20 2e 20 37 33 38 39 |ok] 4 (#|$ . 7389|
|000027b0| 29 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |) nil]).|(defalia|
|000027c0| 73 20 27 69 65 6c 6d 2d | 67 65 74 2d 6f 6c 64 2d |s 'ielm-|get-old-|
|000027d0| 69 6e 70 75 74 20 23 5b | 6e 69 6c 20 22 8a c0 79 |input #[|nil "..y|
|000027e0| 88 c1 5c 6e 21 84 0e 00 | c3 5c 6e 21 88 c4 20 88 |..\n!...|.\n!.. .|
|000027f0| 60 c5 c6 21 88 60 7b 29 | 87 22 20 5b 30 20 6c 6f |`..!.`{)|." [0 lo|
|00002800| 6f 6b 69 6e 67 2d 61 74 | 20 63 6f 6d 69 6e 74 2d |oking-at| comint-|
|00002810| 70 72 6f 6d 70 74 2d 72 | 65 67 65 78 70 20 72 65 |prompt-r|egexp re|
|00002820| 2d 73 65 61 72 63 68 2d | 62 61 63 6b 77 61 72 64 |-search-|backward|
|00002830| 20 63 6f 6d 69 6e 74 2d | 73 6b 69 70 2d 70 72 6f | comint-|skip-pro|
|00002840| 6d 70 74 20 66 6f 72 77 | 61 72 64 2d 73 65 78 70 |mpt forw|ard-sexp|
|00002850| 20 31 5d 20 33 5d 29 0a | 23 40 31 31 37 20 49 6e | 1] 3]).|#@117 In|
|00002860| 74 65 72 61 63 74 69 76 | 65 6c 79 20 65 76 61 6c |teractiv|ely eval|
|00002870| 75 61 74 65 20 45 6d 61 | 63 73 20 4c 69 73 70 20 |uate Ema|cs Lisp |
|00002880| 65 78 70 72 65 73 73 69 | 6f 6e 73 2e 0a 53 77 69 |expressi|ons..Swi|
|00002890| 74 63 68 65 73 20 74 6f | 20 74 68 65 20 62 75 66 |tches to| the buf|
|000028a0| 66 65 72 20 60 2a 69 65 | 6c 6d 2a 27 2c 20 6f 72 |fer `*ie|lm*', or|
|000028b0| 20 63 72 65 61 74 65 73 | 20 69 74 20 69 66 20 69 | creates| it if i|
|000028c0| 74 20 64 6f 65 73 20 6e | 6f 74 20 65 78 69 73 74 |t does n|ot exist|
|000028d0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 69 65 |...(defa|lias 'ie|
|000028e0| 6c 6d 20 23 5b 6e 69 6c | 20 22 c0 c1 21 84 10 00 |lm #[nil| "..!...|
|000028f0| 8a c2 c1 21 71 88 c3 20 | 88 29 c4 c1 21 87 22 20 |...!q.. |.)..!." |
|00002900| 5b 63 6f 6d 69 6e 74 2d | 63 68 65 63 6b 2d 70 72 |[comint-|check-pr|
|00002910| 6f 63 20 22 2a 69 65 6c | 6d 2a 22 20 67 65 74 2d |oc "*iel|m*" get-|
|00002920| 62 75 66 66 65 72 2d 63 | 72 65 61 74 65 20 69 6e |buffer-c|reate in|
|00002930| 66 65 72 69 6f 72 2d 65 | 6d 61 63 73 2d 6c 69 73 |ferior-e|macs-lis|
|00002940| 70 2d 6d 6f 64 65 20 70 | 6f 70 2d 74 6f 2d 62 75 |p-mode p|op-to-bu|
|00002950| 66 66 65 72 5d 20 32 20 | 28 23 24 20 2e 20 31 30 |ffer] 2 |(#$ . 10|
|00002960| 33 33 34 29 20 6e 69 6c | 5d 29 0a                |334) nil|]).     |
+--------+-------------------------+-------------------------+--------+--------+